home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 024 - Big U Macroworks.dsk / FRENCH.BYE.bas < prev    next >
BASIC Source File  |  2019-02-16  |  400b  |  10 lines
  1. 10 D$ =  CHR$(4): PRINT D$"PR#3": PRINT 
  2. 12  PRINT D$"BLOAD BYE.CODE"
  3. 15  VTAB 10
  4. 20  PRINT "This program modifies the ProDOS quit code for French users.
  5. 25  PRINT : PRINT "Press Esc to exit, or"
  6. 28  PRINT "press Return to modify ProDOS now: ";
  7. 30  GET X$: IF X$ =  CHR$(27)  THEN  HOME : END 
  8. 40  IF X$ < > CHR$(13)  THEN 30
  9. 110  PRINT D$"BSAVE PRODOS,TSYS,A$5700,L768,B$3700"
  10. 120  PRINT D$"-PRODOS"